home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tq.d64 / super.dos.inst.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  134 lines
  1. 10 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][149][215][197][204][195][207][205][197][160][212][207]:"
  2. 20 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 30 PRINT"[221][146]  [211][213][208][197][210].[196][207][211] [149][221]"
  4. 40 PRINT"[221][146][201][206][211][212][210][213][195][212][201][207][206][211][149][221]"
  5. 50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 60 PRINT"[194]Y [211]TEVE [199]AST"
  7. 70 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  8. 80 GETW$:IFW$=""THEN80
  9. 90 PRINT"[147] [210][197][211][212][207][210][197]/[193] "
  10. 100 PRINT"[208]RESSING THE [210][197][211][212][207][210][197] KEY FOLLOWED BY"
  11. 110 PRINT"THE [193] KEY WILL CAUSE [194][193][211][201][195] AUTO"
  12. 120 PRINT"NUMBERING TO BEGIN. [211]UCCESSIVE LINES"
  13. 130 PRINT"WILL BE INCREMENTED BY 10. [212]O TURN AUTO"
  14. 140 PRINT"NUMBERING OFF SIMPLY PRESS THE RETURN"
  15. 150 PRINT"KEY AFTER A LINE NUMBER FIRST APPEARS."
  16. 160 PRINT"[212]HE LINE NUMBER YOU STOP AT WILL BE"
  17. 170 PRINT"REMEMBERED. [201]F YOU LATER ENTER AUTO"
  18. 180 PRINT"NUMBERING AGAIN, LINE NUMBERS WILL"
  19. 190 PRINT"CONTINUE FROM WHERE YOU LEFT OFF."
  20. 200 PRINT" [210][197][211][212][207][210][197]/[194], [210][197][211][212][207][210][197]/[195] & [210][197][211][212][207][210][197]/[197] "
  21. 210 PRINT"[194]Y PRESSING THE [210][197][211][212][207][210][197] KEY FOLLOWED BY"
  22. 220 PRINT"THE [194], [195] OR [197] KEYS, SCREEN COLORS WILL"
  23. 230 PRINT"BE AFFECTED. [212]HE [194] KEY WILL CHANGE THE"
  24. 240 PRINT"BACKGROUND COLOR, THE [195] KEY WILL CHANGE"
  25. 250 PRINT"THE CHARACTER COLOR AND THE [197] KEY WILL"
  26. 260 PRINT"CHANGE THE EDGE COLOR. [208]RESSING THE"
  27. 270 PRINT"[210][197][212][213][210][206] KEY WILL RETURN TO NORMAL."
  28. 280 PRINT"       [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  29. 290 GETW$:IFW$=""THEN290
  30. 300 PRINT"[147] [210][197][211][212][207][210][197]/[208] & [210][197][211][212][207][210][197]/[207] "
  31. 310 PRINT"[208]RESSING [210][197][211][212][207][210][197]/[208] WILL TURN YOUR"
  32. 320 PRINT"PRINTER 'ON'. [212]HIS WILL CAUSE WHAT IS"
  33. 330 PRINT"PRINTED TO THE SCREEN TO ALSO BE SENT"
  34. 340 PRINT"TO YOUR PRINTER. [208]RESSING [210][197][211][212][207][210][197]/[207]"
  35. 350 PRINT"WILL TURN YOUR PRINTER OFF."
  36. 360 PRINT" [210][197][211][212][207][210][197]/[196] "
  37. 370 PRINT"[208]RESSING [210][197][211][212][207][210][197]/[196] WILL CAUSE WHATEVER"
  38. 380 PRINT"IS PRESENTLY ON THE SCREEN TO BE DUMPED"
  39. 390 PRINT"TO THE PRINTER. [212]HIS CAN EVEN BE DONE"
  40. 400 PRINT"FROM WITHIN PROGRAM CONTROL!"
  41. 410 PRINT" [210][197][211][212][207][210][197]/[200] & [210][197][211][212][207][210][197]/[213] "
  42. 420 PRINT"[212]HESE COMMANDS WILL DISPLAY THE TWO"
  43. 430 PRINT"HELP SCREENS THAT WERE INITIALLY"
  44. 440 PRINT"PRESENTED WHEN THE PROGRAM WAS LOADED"
  45. 450 PRINT"AND RUN. [215]HEN YOU ARE FINISHED VIEWING"
  46. 460 PRINT"THEM PRESS [210][197][212][213][210][206] TO RETURN TO THE"
  47. 470 PRINT"SCREEN THAT WAS DISPLAYED IMMEDIATELY"
  48. 480 PRINT"BEFORE YOU REQUESTED THE HELP SCREEN."
  49. 490 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  50. 500 GETW$:IFW$=""THEN500
  51. 510 PRINT"[147] [210][197][211][212][207][210][197]/[206] "
  52. 520 PRINT"[212]HIS COMMAND ALLOWS HEX/DECIMAL"
  53. 530 PRINT"DECIMAL/HEX NUMBER CONVERSIONS. [212]O"
  54. 540 PRINT"CONVERT A DECIMAL NUMBER TO HEX JUST"
  55. 550 PRINT"ENTER THE DECIMAL NUMBER AND PRESS"
  56. 560 PRINT"[210][197][212][213][210][206]. [212]O CONVERT A HEX NUMBER TO"
  57. 570 PRINT"DECIMAL ENTER A '$' FOLLOWED BY THE HEX"
  58. 580 PRINT"NUMBER AND PRESS [210][197][212][213][210][206]. [212]O EXIT THE"
  59. 590 PRINT"MODE JUST PRESS [210][197][212][213][210][206]. [206]UMBERS GREATER"
  60. 600 PRINT"THAN 65535 OR $[198][198][198][198] WILL NOT BE"
  61. 610 PRINT"ACCEPTED. [212]HE SCREEN THAT WAS PRESENT"
  62. 620 PRINT"UPON ENTERING THE NUMBER CONVERSION"
  63. 630 PRINT"ROUTINE WILL BE RETURNED UPON EXITING."
  64. 640 PRINT" [210][197][211][212][207][210][197]/[205] "
  65. 650 PRINT"[212]HIS KEY SEQUENCE WILL PUT YOU IN"
  66. 660 PRINT"[216][212][210][193]-[205][207][206] (A MACHINE LANGUAGE MONITOR)"
  67. 670 PRINT"IF YOU CHOSE TO HAVE IT IN RESIDENCE."
  68. 680 PRINT" [210][197][211][212][207][210][197]/[210] "
  69. 690 PRINT"[212]HIS COMMAND WILL CAUSE ALL KEYS TO"
  70. 700 PRINT"REPEAT AFTER A SHORT DELAY (LIKE THE"
  71. 710 PRINT"SPACE BAR NORMALLY DOES). [208]RESSING"
  72. 720 PRINT"[210][197][211][212][207][210][197]/[210] AGAIN RETURNS TO NORMAL."
  73. 730 PRINT"       [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  74. 740 GETW$:IFW$=""THEN740
  75. 750 PRINT"[147] [210][197][211][212][207][210][197]/[203] "
  76. 760 PRINT"[212]HIS COMMAND WILL CAUSE A COMPLETE"
  77. 770 PRINT"SYSTEM RESET. ([211][217][211] 64738)."
  78. 780 PRINT" [210][197][211][212][207][210][197]/[211] "
  79. 790 PRINT"[212]HIS COMMAND REACTIVATES [211][213][208][197][210] [193][201][196] ONLY"
  80. 800 PRINT"AFTER A [203][201][204][204] OR @[209] COMMAND."
  81. 810 PRINT"[206]OTE: [210][197][211][212][207][210][197] COMMANDS CAN BE CALLED"
  82. 820 PRINT"FROM WITHIN PROGRAM CONTROL WITH PROPER"
  83. 830 PRINT"[211][217][211] COMMANDS:"
  84. 840 PRINT"[210][197][211][212][207][210][197]/[193]=[211][217][211] 51940  [210][197][211][212][207][210][197]/[194]=[211][217][211] 51892";
  85. 850 PRINT"[210][197][211][212][207][210][197]/[195]=[211][217][211] 51917  [210][197][211][212][207][210][197]/[197]=[211][217][211] 51888";
  86. 860 PRINT"[210][197][211][212][207][210][197]/[208]=[211][217][211] 51644  [210][197][211][212][207][210][197]/[207]=[211][217][211] 51652";
  87. 870 PRINT"[210][197][211][212][207][210][197]/[206]=[211][217][211] 52064  [210][197][211][212][207][210][197]/[196]=[211][217][211] 51674";
  88. 880 PRINT"[210][197][211][212][207][210][197]/[200]=[211][217][211] 50976  [210][197][211][212][207][210][197]/[213]=[211][217][211] 51009";
  89. 890 PRINT"[210][197][211][212][207][210][197]/[205]=[211][217][211] 29900  [210][197][211][212][207][210][197]/[210]=[211][217][211] 51258";
  90. 900 PRINT"[210][197][211][212][207][210][197]/[203]=[211][217][211] 51267  [210][197][211][212][207][210][197]/[211]=[211][217][211] 51270"
  91. 910 PRINT"       [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  92. 920 GETW$:IFW$=""THEN920
  93. 930 PRINT"[147][206]OTE 2: [201]F FOR SOME BIZZARE REASON"
  94. 940 PRINT"YOU SHOULD WANT TO DISABLE [211][213][208][197][210] [196][207][211]"
  95. 950 PRINT"IT CAN ONLY BE DONE IF THE [216][212][210][193]-[205][207][206]"
  96. 960 PRINT"OPTION WAS [206][207][212] SELECTED. [201]N THE CASE"
  97. 970 PRINT"WHERE THERE IS NOT A MACHINE LANGUAGE"
  98. 980 PRINT"MONITOR IN MEMORY [211][217][211]ING TO A [194][210][203]"
  99. 990 PRINT"(E.G. [211][217][211]8) WILL SHUT OFF [211][213][208][197][210] [196][207][211]"
  100. 1000 PRINT"ONLY. [215]HEN THE MACHINE LANGUAGE MONITOR"
  101. 1010 PRINT"IS IN MEMORY THE ROUTINE NORMALLY CAN"
  102. 1020 PRINT"NOT BE EXITED. [207]CASIONALLY, BECAUSE OF"
  103. 1030 PRINT"THE BIZZARE WAY THE 64 READS THE RESTORE";
  104. 1040 PRINT"KEY, THE MACHINE WILL RESET TO DEFAULT"
  105. 1050 PRINT"JUST TO PROVE THE IMPOSSIBLE IS, IN FACT";
  106. 1060 PRINT"POSSIBLE. [202]UST IN PASSING THE 64 [213][211][213][193][204][204][217]";
  107. 1070 PRINT"READS THE [210][197][211][212][207][210][197] KEY TWICE. [211][213][208][197][210] [193][201][196]"
  108. 1080 PRINT"ALLOWS FOR THIS."
  109. 1090 PRINT"            [200]APPY [195]OMPUTING!!"
  110. 1100 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  111. 1110 GETW$:IFW$=""THEN1110
  112. 1120 PRINTCHR$(14)"[147] [196][207] [217][207][213] [215][201][211][200] [212][207]: "
  113. 1130 PRINT"1. [210][213][206] [211][213][208][197][210] [193][201][196]"
  114. 1140 PRINT"2. [211][197][197] [196][197][212][193][201][204][197][196] [212][201][206][217] [193][201][196] [208][204][213][211]"
  115. 1150 PRINT"   [201][206][211][212][210][213][195][212][201][207][206][211]"
  116. 1160 PRINT"3. [211][197][197] [211][213][208][197][210] [193][201][196] [199][197][206][197][210][193][204] [195][207][205][205][197][206][212][211]
  117. 1170 [153]"4. (null)VALVAL STR$VAL(null)ATNRIGHT$(null)VALSTR$ (null)VALSTR$CHR$VAL RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  118. 1180 [153]"5. (null)VALVAL (null)(null)(null)ATN-(null)(null)(null) RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  119. 1190 [153]"6. VAL(null)RIGHT$(null) (null)LEFT$VAL (null)(null)(null)CHR$(null)ATN(null)"
  120. 1200 [153]"VALNTER YOUR NUMBER OF CHOICE"
  121. 1210 [161]W$:[139]W$[178]""[167]1210
  122. 1220 [139]W$[179][177]"1"[175]W$[179][177]"2"[175]W$[179][177]"3"[175]W$[179][177]"4"[175]W$[179][177]"5"[175]W$[179][177]"6"[167]1210
  123. 1230 W[178][197](W$):[139]W[178]6[167][153]"LOADVERIFY"[199](142):[162]:[128]
  124. 1240 [139]W[178]1[167]NP$[178]"SUPER.AID.C"
  125. 1250 [139]W[178]2[167]NP$[178]"TAP.INST.D"
  126. 1260 [139]W[178]3[167]NP$[178]"S.A.COMMENTS.D"
  127. 1270 [139]W[178]4[167]NP$[178]"WEDGE.INST.D"
  128. 1280 [139]W[178]5[167]NP$[178]"XMON.INST.D"
  129. 1290 [153]"LOADSTOPLOAD"[199](34)NP$[199](34)",8"
  130. 1300 [151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13
  131. 1310 [153][199](142)"VERIFY(null)LENLENLENLENLENLENLENLENLENLENLENRIGHT$"
  132. 1320 [153][199](142)"VERIFY(null)WAITPLEASE WAITVERIFY(null)"
  133. 1330 [153][199](142)"VERIFYMID$LENLENLENLENLENLENLENLENLENLENLEN(null)WAITSTOP":[128]
  134.